home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Utility / CNIF_MacroMaker 1.4.sit / CNIF_MacroMaker 1.4 / CNIF_MacroMaker / stack_-1.xml < prev    next >
Extensible Markup Language  |  1999-01-11  |  38KB  |  112 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>71</cardCount>
  7.     <cardID>21348</cardID>
  8.     <listID>4090</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on closeStackglobal SvLvl,CNMbmList,CNMbmNo,cNMRevertReadListput empty into cNMRevertReadListgo to first cdsuspendStackCompactST 30hide msgif SvLvl is a number then set the userLevel to SvLvlpass closeStackend closeStackon resumeStackglobal CNMbmList,CNMbmNoput cd fld "BookMarkList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into CNMbmListput item 3 of line 1 of CNMbmList into CNMbmNoif CNMbmNo is empty then put 1 into CNMbmNoset commandChar of menuItem "Home" of menu "Go" to emptyset commandChar of menuItem "Recent" of menu "Go" to emptyset commandChar of menuItem "Scroll" of menu "Go" to emptysetMsgLocsetMenuBar falseopenbackgroundpass resumeStackend resumeStackon suspendStackglobal CNMbmList,CNMbmNoif CNMbmList <> empty then put CNMbmNo into item 3 of line 1 of CNMbmListput CNMbmList into cd fld "BookMarkList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"set commandChar of menuItem "Home" of menu "Go" to "H"set commandChar of menuItem "Recent" of menu "Go" to "R"set commandChar of menuItem "Scroll" of menu "Go" to "E"setMenuBar truepass suspendStackend suspendStackon openCardglobal CNMeditText,CNMbmList,CNMbmNo,cNMDialogOFFput false into CNMeditTextput the short id of this cd into nif MtScanList(CNMbmList,n,,true) <> empty then put 23200 into ielse put 0 into iset the icon of bg btn "BookMark" to iput the number of lines of CNMbmList into lput CNMbmNo into bif l is 0 then put 0 into bput b &&"/"&& l into bg fld "BookMarkNo"if there is a bg button "createMark" then set the hilite of bg button "createMark" to the marked of this cardsend "scrFld" to this cdpass openCardend openCardon openbackgroundset the hilite of bg btn "HelpON/OFF" to ("CNIF_MM-Help" is in the stacksInUse)pass openbackgroundend openbackgroundon closebackgroundset the hilite of bg btn "HelpON/OFF" to falsepass closebackgroundend closebackgroundon doMenu menuItemglobal cNMDialogOFF,CNMbmListif menuItem is "Delete Card" thenput "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ,ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ" into bgList1put "ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃ･fﾃｩﾂｶﾃｮﾂｬ,ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｫSﾃｯ竏づ･ﾃｼﾃｧﾄｱ,ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" into bgList2put the short name of this bg into bgNameget the number of cards of this bgif it is 1 or (bgName is in bgList1 and it <= 2) or (bgName is in bgList2 and it <= 3) thensend "clearData" to this cdexit doMenuelse if cNMDialogOFF <> "true" thenanswer "ﾃ‡ﾂｱﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit doMenuend ifget MtScanList(CNMbmList,the short id of this cd,,true)if it <> empty then delete line (item 1 of it) of CNMbmListpass doMenuelse if menuItem is "New Card" thenput "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ,ﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ’,ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ,ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹" into bgListif the short name of this bg is in bgList and the optionKey is up then beepelse  pass doMenuelse if menuItem is "Help" then send "mouseUp" to bg btn "openGuide"else pass doMenuend doMenuon playif the hilite of cd btn "Sound ON" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" then pass playend playon beepif the hilite of cd btn "Sound ON" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" then pass beep else flashend beepon active path,logFileNamesend "active path,logFileName" to first cd of bg "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ"end activeon commandKeyDown wKeyif wKey is "[" thenif the selectedText <> empty thenif the shiftKey is down then get 2 else get 1unquotationTxt cd fld ("ﾃ ﾂｯﾃｳpﾃ｣Lﾃｧﾃœ" & it) of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"else GoPrevBgelse if wKey is "]" thenif the selectedText <> empty thenif the shiftKey is down then get 2 else get 1quotationTxt cd fld ("ﾃ ﾂｯﾃｳpﾃ｣Lﾃｧﾃœ" & it) of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"else GoNextBgelse if wKey is "□" then GoPrevMc -- ﾃ…ﾂｩelse if wKey is "□" then GoNextMc -- ﾃ…ﾂｮelse if wKey is "," then checkMarkelse if wKey is "/" then sendbtn "bg btn" && quote & "openGuide" & quoteelse if wKey is "g" thensend "GComBtn" to this cdget the resultif it <> empty then sendBtn itelse pass commandKeyDownelse if wKey is "h" then HelpToggleelse if wKey is "c" and the tool is "browse tool" thenif the selectedText is empty then send "clearData" to this cdelse pass commandKeyDownelse if wKey is "j" then doResScript "addScheduleCNM"else if wKey is "k" and the selectedText <> empty then doResScript "reformatCNM"else if wKey is "s" then cdSortelse if wKey is "u" thenanswer "ﾃ厭ﾃ…[ﾃ丑ﾃ‡ï｣ｿﾃｫSﾃ‡ﾆ津｢ï｣ｿﾃｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Cancel" or "OK"if it is "OK" thenunmarkAllend ifelseif excludeMenuItem() thenif wKey is "d" and the shiftKey is up then dupliCardelse if wKey is "r" then reNameCardelse if wKey is "e" then delCardelse pass commandKeyDownelse pass commandKeyDownend ifend commandKeyDownon controlKey wKeyglobal scrFldNameif wKey = 13 then setBookmark -- Melse if wKey = 28 then GOPrevBM -- ﾃ…ﾂｩelse if wKey = 29 then GONextBM -- ﾃ…ﾂｮelse if wKey = 30 or wKey = 31 and scrFldName <> empty thenscrollFld item 1 of scrFldName,(wKey = 31) -- ﾃ⒣┐ﾃ…ﾂｴelse pass controlKeyend controlKeyon setScrollFld fldNameglobal scrFldNameput fldName into scrFldNameend setScrollFldon checkMarkif there is a bg button "createMark" thenset the hilite of bg button "createMark" to not(the hilite of bg button "createMark")set the marked of this card to the hilite of bg button "createMark"end ifend checkMarkon setBookmarkdoResScript "setBookmarkCNM"end setBookmarkon bookmark n,mglobal CNMbmListget MtScanList(CNMbmList,n,,true)if it <> empty then delete line (item 1 of it) of CNMbmListif m thenput addZero(the number of cd id n,3) &","& n & return after CNMbmListsort lines of CNMbmListend ifend bookmarkfunction bmNameListglobal CNMbmListput empty into listrepeat with r = the number of lines of CNMbmList down to 1get item 2 of line r of CNMbmListif there is a cd id it then put (the short name of cd id it) & return before listelse delete line r of CNMbmListend repeatreturn listend bmNameListfunction checkCDNoglobal CNMbmList,CNMbmNorepeatput item 2 of (line CNMbmNo of CNMbmList) into cdIDif there is not a cd id cdID thendelete line CNMbmNo of CNMbmListput the number of lines of CNMbmList into nif n = 0 then return emptyput min(n,CNMbmNo) into CNMbmNoelse return cdIDend repeatend checkCDNoon LoadCard nglobal CNMLCListget MtScanList(CNMLCList,n,,true)if it <> empty then delete line (item 1 of it) of CNMLCListput addZero(the number of cd id n,3) &","& n & return after CNMLCListsort lines of CNMLCListend LoadCardon newCardglobal cNMDialogOFF,clipTextif cNMDialogOFF is "false" then get the short name of this cardelse get cNMDialogOFFif there is a field "subMenuList" thenif it contains "card id" then get "Untitled_1"get changeName (it,bg fld "subMenuList")end ifif cNMDialogOFF is "false" thenif clipText <> empty then MtPutOnClip clipTextask "ﾃ雨ﾃ…[ﾃ栄ﾃ‡ﾃεｱﾂｺﾃｫOﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with itend ifif it is empty then get "Untitled_1"put omitText (it,31) into newNameput changeName (newName,bg fld "subMenuList") into newNameput newName into bg fld "subMenu"set the name of this card to newNamesetSubMList newNameif cNMDialogOFF is "false" and there is a bg btn "createMark" then mark this cardend newCard-- subMenuﾃ‡ﾂｩﾃ‡ﾃﾃｧﾃ古ｨﾃｺon deleteCardif there is a field "subMenuList" thenif bg fld "subMenuList" <> empty thenget MtScanList(bg fld "subMenuList",the short name of this card,,true)if it <> empty then delete line (item 1 of it) of bg fld "subMenuList"if the hilite of cd btn id 18 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" or bg fld "mainMenu" is "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" then updateHierMenuend ifend ifend deleteCardon delCardput the short name of this bg into block screendoMenu "Delete Card"go to bg bend delCardon reNameCard newNameglobal cNMDialogOFFput the short name of this card into oldNameif newName is empty thenask "ﾃ雨ﾃ…[ﾃ栄ﾃ‡ﾃεｱﾂｺﾃｫOﾃ‡ï｣ｿﾃｯﾅ禿ｧXﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with oldNameif the result is "Cancel" or it = oldName then exit reNameCardif it is empty then get "Untitled_1"put omitText (it,31) into newNameend ifput changeName (newName,bg fld "subMenuList") into newNameif bg fld "subMenuList" <> empty thenget MtScanList(bg fld "subMenuList",oldName,,true)if it <> empty then delete line (item 1 of it) of bg fld "subMenuList"end ifput newName into bg fld "subMenu"set the name of this card to newNamesetSubMList newNameend reNameCardon setSubMList newNameput bg fld "subMenuList" & newName & return into listsort lines of list internationalput list into bg fld "subMenuList"if the hilite of cd btn id 18 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" or bg fld "mainMenu" is "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" then updateHierMenuend setSubMListon unmarkAllunmark all cardsif there is a bg button "createMark" then set the hilite of bg button "createMark" to falseput 0 into bg fld "totalMarkNumber" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "end unmarkAllon cdSortsort cards of this bg international by bg fld "subMenu"end cdSort-- ﾃ嘉…ﾃ韻ﾃ嘉ｬﾃ⑿ﾃ頴ﾃ叡ﾃ丑ﾃ碓ﾃ嘉｢ﾃ右ﾃ嘉ｬﾃ栄ﾃ 竅„ﾃｬﾃ†ﾃ⒀on mainMenuif the hilite of cd btn id 18 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" then get cd fld "mainMenuList2" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"else get cd fld "mainMenuList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"UxPop it,"N"put item 1 of line 2 of it into mainput item 2 of line 2 of it into subif main is empty and sub is empty or (main = target and sub is empty) then exit mainMenuvisual effect zoom openif sub <> empty then go to cd sub of bg mainelse go to bg mainend mainMenuon updateHierMenuput Switch(bg fld "subMenuList") into mItemput cd fld "mainMenuList2" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into mmListput bg fld "mainMenu" into bgNameput MtScanList(mmList,bgName,,true) into yput bgName & "," & mItem into line (item 1 of y) of mmListput mmList into cd fld "mainMenuList2" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"end updateHierMenu-- ﾃ欝ﾃ疫ﾃ⑿ﾃ雨ﾃ…[ﾃ栄ﾃ 竅„ﾃｬﾃ†ﾃ⒀on subMenu mItemglobal CNMbmList,CNMbmNoput (the shiftKey is down or the mouseH < (the left of the target + 10)) into shput the mouseH > (the right of the target - 10) into bmif sh then put markCdList() into mItemelse if bm then put bmNameList() into mItemif the optionKey is down or excludeMenuItem() thenput "-;ﾃ頴ﾃ叡ﾃ丑ﾃ陰ﾃ叡ﾃ益;ﾃｯ窶愿ｨW,/NﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄...,/Dﾃ雨ﾃ…[ﾃ栄ﾃｯﾂｰﾃｪﾂｪ...,-,/Jﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃｬoﾃｲ^...,/Rﾃ雨ﾃ…[ﾃ栄ﾃｱﾂｺﾃｯﾅ禿ｧX...,/Sﾃｯﾂｿﾃ‡笳甘ｫﾃｷﾃ‡ﾂｶ,ﾃ欝ﾃ疫ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｧXﾃｪV,-" &ﾂｬ",/UﾃｫSﾃ厭ﾃ…[ﾃ丑ﾃ｢ï｣ｿﾃｨﾃｺ...,ﾃｫSﾃ‡ﾂｵﾃ‡ﾂｮﾃ‡ﾃ凝｢ï｣ｿﾃｨﾃｺ...,/Cﾃ丑ﾃ嘉､ﾃ陰...,/Eﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ...,ﾃ厭ﾃ…[ﾃ丑ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ...;ﾃ ﾂｯﾃｳpﾃｯﾃ‘,/]ﾃｯtﾃ‡ﾃ佚‡ﾃˆ,/[ﾃ､Oﾃ‡竏‘" into melseput "-;ﾃ頴ﾃ叡ﾃ丑ﾃ陰ﾃ叡ﾃ益;ﾃｯ窶愿ｨW,/Jﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃｬoﾃｲ^...,-,/UﾃｫSﾃ厭ﾃ…[ﾃ丑ﾃ｢ï｣ｿﾃｨﾃｺ...,ﾃｫSﾃ‡ﾂｵﾃ‡ﾂｮﾃ‡ﾃ凝｢ï｣ｿﾃｨﾃｺ...,/Cﾃ丑ﾃ嘉､ﾃ陰...,ﾃ厭ﾃ…[ﾃ丑ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ...;ﾃ ﾂｯﾃｳpﾃｯﾃ‘,/]ﾃｯtﾃ‡ﾃ佚‡ﾃˆ,/[ﾃ､Oﾃ‡竏‘" into mend ifif the selectedText is empty then put ":" before char offset("ﾃ ﾂｯﾃｳpﾃｯﾃ‘",m) of mif bm then get "350,4" else if sh then get "201,4" else get "210,4"UxPop mItem & m,"N",,itput item 1 of line 2 of it into mainput item 2 of line 2 of it into subif main is empty and sub is empty or (main = target and sub is empty) then exit subMenuif main is "ﾃｯ窶愿ｨW" thenif sub is "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄..." then doMenu "New Card"else if sub is "ﾃ雨ﾃ…[ﾃ栄ﾃｯﾂｰﾃｪﾂｪ..." then dupliCardelse if sub is "ﾃ雨ﾃ…[ﾃ栄ﾃｱﾂｺﾃｯﾅ禿ｧX..." then reNameCardelse if sub is "ﾃｯﾂｿﾃ‡笳甘ｫﾃｷﾃ‡ﾂｶ" then cdSortelse if sub is "ﾃｫSﾃ厭ﾃ…[ﾃ丑ﾃ｢ï｣ｿﾃｨﾃｺ..." thenanswer "ﾃ厭ﾃ…[ﾃ丑ﾃ‡ï｣ｿﾃｫSﾃ‡ﾆ津｢ï｣ｿﾃｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Cancel" or "OK"if it is "OK" thenunmarkAllend ifelse if sub is "ﾃｫSﾃ‡ﾂｵﾃ‡ﾂｮﾃ‡ﾃ凝｢ï｣ｿﾃｨﾃｺ..." thenanswer "ﾃ‡ﾂｵﾃ‡ﾂｮﾃ‡ﾃ凝‡ï｣ｿﾃｫSﾃ‡ﾆ津｢ï｣ｿﾃｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Cancel" or "OK"if it is "OK" thenglobal CNMbmList,CNMbmNoput 1 into CNMbmNoput empty into CNMbmListset the icon of bg btn "BookMark" to 0put "0 / 0" into bg fld "BookMarkNo"end ifelse if sub is "ﾃ丑ﾃ嘉､ﾃ陰..." then send "clearData" to this cdelse if sub is "ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ..." then delCardelse if sub is "ﾃ厭ﾃ…[ﾃ丑ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ..." then doResScript "deleteMarkcdCNM"else if sub is "ﾃ欝ﾃ疫ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｧXﾃｪV" then updatesubMenuelse if sub is "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃｬoﾃｲ^..." then doResScript "addScheduleCNM"exit subMenuelse if main is "ﾃ ﾂｯﾃｳpﾃｯﾃ‘" thenif sub is "ﾃｯtﾃ‡ﾃ佚‡ﾃˆ" thenif the shiftKey is down then get 2 else get 1quotationTxt cd fld ("ﾃ ﾂｯﾃｳpﾃ｣Lﾃｧﾃœ" & it) of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"else if sub is "ﾃ､Oﾃ‡竏‘" thenif the shiftKey is down then get 2 else get 1unquotationTxt cd fld ("ﾃ ﾂｯﾃｳpﾃ｣Lﾃｧﾃœ" & it) of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"end ifexit subMenuelse if main is "ﾃ頴ﾃ叡ﾃ丑ﾃ陰ﾃ叡ﾃ益" then bkup cd fld id 51 of cd id 13803elsevisual effect zoom openif sh thengo to marked cd (item 3 of it)else if bm thenput item 3 of it into CNMbmNogo to cd id item 2 of line (item 3 of it) of CNMbmListelsego to cd main of this bgend ifend ifend subMenuon updatesubMenuput empty into cdListrepeat with r = 1 to the number of cds of this bgput the short name of cd r of this bg & return after cdListend repeatput cdList into bg fld "subMenuList"updateHierMenuend updatesubMenu-- ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃｱﾂｺﾃｫIﾃｫï｣ｿon forumMenu popLocput the hilite of cd btn id 32 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into modeif the shiftkey is down then put not(mode) into modeif mode thenput cd fld "forumList2" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into mItemif mItem is empty thenupdatefMenu2 cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"put the result into mItemend ifelseput switch(cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀") & ";-;ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ..." into mItemend ifUxPop mItem,"N",,popLocput item 3 of line 2 of it into lif the optionKey is down and it <> "ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ..." then deleteFList it,modeget line 1 of itif it is "ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ..." thenget newForum ()else if mode thenif it is empty then get item 2 of line l of mItemif it = target thenexit forumMenuend ifelseif it is empty or it = target then exit forumMenuend ifif it <> empty thenif "button" is in the target then return itelse put it into the targetend ifend forumMenuon deleteFList s,modeput line 1 of s into fnif fn is empty then exit deleteFListanswer "ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ﾂｩﾃ‡ﾃ" && quote & fn & quote &&"ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Cancel" or "OK"if it is "OK" thenput cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into listif fn = target then put empty into the targetif mode then get item 2 of MtScanList(List,fn,,true)else get item 3 of line 2 of sdelete item it of listput list into cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"updatefMenu2 listend ifexit to HyperCardend deleteFListfunction newForum forumNameif forumName is empty thenask "ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃ‡ﾃƒ GOﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄 ﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"if it is empty thenreturn emptyend ifelseget forumNameend ifget upperLower(it)put cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into flistif flist is empty or MtScanList(flist,it,,true) is empty thenput it into item ((the number of items of flist) + 1) of flistsort items of flistput flist into cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"updatefMenu2 flistend ifreturn itend newForumon updatefMenu2 listglobal CNMfList1,CNMfList2set the cursor to watchput list into CNMfList1put empty into pput the number of items of list into nrepeat with r = n down to 1get char 1 to 3 of item r of listif it <> p thenput return & p after item r of listput it into pend ifend repeatput it & "," & list & "-" & return & "ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ..." into CNMfList2put CNMfList2 into cd fld "forumList2" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"return CNMfList2end updatefMenu2on putList theLog,header,listNum,cdNglobal cNMautoReadget the targetif "ﾃ･ﾃｼ ﾃｧﾄｱ" is not in it then put "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & cdNput listNum into bg fld "listNum"put bg fld "readList" into listif the hilite of bg btn "ﾃ･竕暗ｭﾃ‹" thenif list <> empty thenif "-" is in list then put shortNumber(list,false) into listput the number of lines of theLog into lnrepeat with i = the number of items of list down to 1get item i of listif it <= ln then put "*" into char 5 of line it of theLogend repeatif shortNum() then put shortNumber (list,true,true) into listput list into bg fld "readList"end ifelseput empty into bg fld "readList"if there is a bg btn "ALL" then set the hilite of bg btn "ALL" to falseend ifput theLog into bg fld "titleList"put header into bg fld "header"LoadCard the short id of this cdif bmSetting(the short name of this bg) and cNMautoRead then bookmark the short id of this cd,trueend putListon askListdoResScript "askListCNM"end askListfunction firstTitle title,keijiban,numif title is empty then return emptyput omitText(title,(the length of title - 4)) into titleput " " into char 5 of titleif keijiban then put "....." into char 24 to 28 of titleif num is true then put "..." into char 1 to 3 of titleif "^" is in title then put char 1 to offset("^",title) - 1 of title into titlereturn titleend firstTitle---- ﾃ厭ﾃ丑ﾃ嘉ｧfunction MacroGoMailif the hilite of cd btn id 15 of cd "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ‹" then get "GO NEWMAIL" else get "MAIL"put nextLabel() into label1return "m: ##" && last word of it && "##" & return &ﾂｬ"s:" & it & "^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label1 & ":MAIL>" & return  &ﾂｬ"s:SET MENu OFF^m" & return &ﾂｬ"r:^mMAIL>" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 1" & returnend MacroGoMailfunction MacroGoForum forumNameglobal CNMregForumput (the hilite of cd btn id 1 of cd id 51661) into h1put (the hilite of cd btn id 5 of cd id 51661) into h2put (MtScanList(CNMregForum,forumName,,true) is empty) into h3if (h1 and h2 and h3) or (h1 and h2 is false) thenif h2 and the hilite of cd btn id 13 of cd id 51661 then send "MyForumMacro" to cd id 23208return MacroGoForum2(forumName,,"ﾃｩﾂｩﾃｬﾃ†")elseif the hilite of cd btn id 12 of cd id 51661 then return MacroGoForum3(forumName)else return MacroGoForum1(forumName)end ifend MacroGoForum-- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃ烏ﾃ嘉｢ﾃ…[ﾃｨﾃ ﾃｳﾃｹon makeMacroError errorReport,answertxt,cdNameglobal cNMmacroReport,cNMDialogOFFput errorReport & return after cNMmacroReportbeepif cNMDialogOFF <> true thenanswer quote & cdNameR(,true) & quote & return & answertxt & "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃ‡ï｣ｿﾃ･pﾃｫﾂｱﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ③" with "No" or "Yes"if it is "No" thenput cd fld "macroReport" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " into prevReportput MtScanList(prevReport,"ﾃｧﾃ湘ｪﾂｨﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ") into pput the number of lines of p into nif n > 4 then delete line 1 to (item 1 of line (n - 3) of p) - 2 of prevReportputReport prevReport & cNMmacroReport & return & return,trueget the number of lines of MtScanList(cNMmacroReport,"ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦")put it into bg fld "errorNumber" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "hide msgset the lockMessages to falseanswer "ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳ﾃ‡ï｣ｿﾃ･ﾂｩﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ③" with "No" or "Yes"if it is "Yes" then send "mouseUp" to bg fld "errorNumber" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 "exit to HyperCardend ifend ifend makeMacroError-- ﾃ厭ﾃ丑ﾃ嘉ｧﾃ嘉｢ﾃ悦ﾃ嘉｣function nextLabel-- /#000#/ - /#999#/global cNMmacroLabelput (char 3 to 5 of cNMmacroLabel) + 1 into Lif L < 10 then put "0" before Lif L < 100 then put "0" before Lput "/#" & L & "#/" into cNMmacroLabelreturn cNMmacroLabelend nextLabel-- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｯﾅ禿ｪﾃｮﾃｱﾂｺon putVariableName vnglobal cNMvariableListput vn into item (the number of items of cNMvariableList + 1) of cNMvariableListend putVariableName-- ﾃ嘉｢ﾃ悦ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳function checkLabel macroput empty into labelrepeat while "/#" is in macroset the cursor to busydelete char 1 to (offset("/#",macro) - 1) of macroget char 1 to 7 of macroif char 3 to 5 of it is a integer and char 6 to 7 of it is "#/" thenif it is not in label then put it & "," after labelend ifdelete char 1 to 7 of macroend repeatreturn labelend checkLabelon putReport txt,mif m is true then get txtelse get (cd fld "macroReport" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 ") & txtrepeat until the length of it < 30000set the cursor to busydelete line 1 to 20 of itend repeatput it into cd fld "macroReport" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 "end putReportfunction cdNameR i,optif i is empty then put the short id of this cd into iget (the short owner of cd id i) && ":" && (the short name of cd id i)if opt is true then return itelse return "/*" && it && "*/ card id" && iend cdNameRon ReportCdNameglobal cNMmacroReportput cdNameR() & return after cNMmacroReportend ReportCdName-- n=titleNumberLengthfunction delLine theText,n,modeput empty into rtrepeat with r = 1 to the number of lines of theTextset the cursor to busyget line r of theTextif it is empty then next repeatget char 1 to n of itif it is not a integer or "." is in it or it is "   "  or it is "    " or it is empty thenif mode is "true" thenexit repeatend ifelse put line r of theText & return after rtend repeatreturn rtend delLineon openEditLogif the optionKey is up then exit openEditLogset the cursor to watchput line 2 of target into filePathput EditorPath() into editorif filePath is empty or there is not a file filePath thenget LogPath()if it <> empty then MtSetDefaultDir itanswer file "ﾃ嘉ｧﾃ碓ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" of type textif it is empty then exit openEditLogput it into filePathend ifopen filePath with editorend openEditLogfunction checkExceptFile fileName,modeput cd fld "ﾃｨﾃｺﾃ､Oﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳" of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" into exceptFileif MtScanList(exceptFile,fileName,,true) <> empty then return falseif the hilite of cd btn id 6 of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" thenif "addin_" is in fileName and "addin_CNM" is not in fileName then return falseend ifif mode is false or the hilite of cd btn id 7 of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" thenif char 1 of fileName is "_" then return falseend ifreturn trueend checkExceptFileon HelpToggleput "CNIF_MM-Help" into stNameif stName is in the stacksInUse thenif there is a window "CNM Help" then close window "CNM Help"if there is a window "ﾃ駅ﾃ嘉｣ﾃ益ﾃｩQﾃｨ竏†" then close window "ﾃ駅ﾃ嘉｣ﾃ益ﾃｩQﾃｨ竏†"stop using stack stNameelsestart using stack stNameend ifset the hilite of bg btn "HelpON/OFF" to (stName is in the stacksInUse)end HelpToggleon CNMGuide bgNameglobal CNMName,CNMfList1,CNMfList2,CNMTmodeset the cursor to watchlock screenput cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into CNMfList1put cd fld "forumList2" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into CNMfList2if CNMfList2 is empty then updatefMenu2 CNMfList1if the hilite of cd btn id 1 of cd id 40331 then put "-RTN" into CNMTmode else put "-RMN" into CNMTmodeput the short name of this stack into CNMNameif there is a window "CNIF_MM-guide" then show window "CNIF_MM-guide"else go to stack "CNIF_MM-guide" in a new windowif the short name of this stack is "CNIF_MM-guide" then openCNMGuide bgNameend CNMGuide-- ﾃ雨ﾃ…[ﾃ栄ﾃ 竅„ﾃｬﾃ†on GoPrevCdwait 15visual effect wipe right fastif the optionKey is down or the mouseClick then go to first cd of this bgelse go to prev cdend GoPrevCdon GoNextCdwait 15visual effect wipe left fastif the optionKey is down or the mouseClick then go to last cd of this bgelse go to next cardend GoNextCdon GoPrevBgwait 15visual effect shrink to top very fastif the optionKey is down or the mouseClick then go to first cdelse if the shiftKey is down then go to first cd of this bgelse go to prev bgend GoPrevBgon GoNextBgwait 15visual effect stretch from top very fastif the optionKey is down or the mouseClick then go to last cdelse if the shiftKey is down then go to last cd of this bgelse go to next bgend GoNextBgon GoPrevMcvisual effect scroll right fastgo to prev marked cardend GoPrevMcon GoNextMcvisual effect scroll left fastgo to next marked cardend GoNextMcon GOPrevBMglobal CNMbmList,CNMbmNoif CNMbmNo is empty or CNMbmNo < 1 then put 1 into CNMbmNoif the number of this cd = item 1 of line CNMbmNo of CNMbmList then subtract 1 from CNMbmNoif CNMbmNo < 1 then put the number of lines of CNMbmList into CNMbmNoget checkCDNo()if it <> empty thenvisual effect scroll right very fast to inversevisual effect dissolve very fastgo to cd id itput addZero(the number of this cd,3) into item 1 of line CNMbmNo of CNMbmListend ifend GOPrevBMon GONextBMglobal CNMbmList,CNMbmNoif CNMbmNo is empty or CNMbmNo < 1 then put 1 into CNMbmNoif the number of this cd = item 1 of line CNMbmNo of CNMbmList then add 1 to CNMbmNoif CNMbmNo > the number of lines of CNMbmList then put 1 into CNMbmNoget checkCDNo()if it <> empty thenvisual effect scroll left very fast to inversevisual effect dissolve very fastgo to cd id itput addZero(the number of this cd,3) into item 1 of line CNMbmNo of CNMbmListend ifend GONextBMon GoTopCdwait 15visual effect iris close fast to inversevisual effect iris open fastif the optionKey is down or the mouseClick then go to cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "else go to recent cardend GoTopCdfunction bmSetting bcNameput cd fld id 21 of cd "ﾃ嘉ｧﾃ碓ﾃｩﾂｩﾃｬﾃ†ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹"into listput item 1 of MtScanList(list,bcName) into lreturn the hilite of cd btn id 1 of cd id 32246 and (char 3 of line l of list is "B")end bmSettingfunction BBS5return cd fld id 4 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ‹"end BBS5function shortNumreturn the hilite of cd btn "ﾃ嘉､ﾃ厩ﾃ曳ﾃｮ窶佚ｧﾃ愿ｭZﾃｨkﾃｯ¥ﾃｩﾂｶ" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"end shortNumfunction myPathreturn the value of word 2 of the long name of this stackend myPathfunction menuFontget cd fld "menuFont" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"if MtScanList(menu "font",it,,true) is empty thenget "Osaka"put it into cd fld "menuFont" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"end ifreturn itend menuFontfunction cNifPathreturn cd fld "cNifPath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end cNifPathfunction postPathreturn cd fld "postPath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end postPathfunction LogPathreturn cd fld "LogPath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end LogPathfunction EditorPathreturn line 1 of cd fld "EditorPath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end EditorPathfunction EditorCreatorreturn line 2 of cd fld "EditorPath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end EditorCreatorfunction NasuPathreturn line 1 of cd fld "NasuPath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end NasuPathfunction nifJPathreturn line 1 of cd fld "nifJPath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end nifJPathfunction knifePathreturn line 1 of cd fld "knifePath" of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"end knifePathfunction excludeMenuItemput the short name of this bg into bgNameput the short name of this cd into cdNameput "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ,ﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ’,ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ,ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹" into bgListput " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 , WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ ﾃ催ｳﾃｳ , WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｬﾂｸﾃｳﾃ• ,  BUL ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺ  ,  BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ  ,  BBS ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺ  ,  BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ  , ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ " into cdListif bgName is in bgList or cdName is in cdList then return falseelse return trueend excludeMenuItem</script>
  17.     <background id="2050" file="background_2050.xml" name="ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ" />
  18.     <background id="2577" file="background_2577.xml" name="ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ" />
  19.     <background id="3798" file="background_3798.xml" name="ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM" />
  20.     <background id="4249" file="background_4249.xml" name="ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄" />
  21.     <background id="8366" file="background_8366.xml" name="ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃ‡ﾂｮﾃｭmﾃ‡ﾃﾃ‡ﾏ\" />
  22.     <background id="8939" file="background_8939.xml" name="ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ…[ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ " />
  23.     <background id="9676" file="background_9676.xml" name="ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ‹" />
  24.     <background id="14054" file="background_14054.xml" name="ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ…[ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" />
  25.     <background id="18336" file="background_18336.xml" name="ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" />
  26.     <background id="19320" file="background_19320.xml" name="ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" />
  27.     <background id="30993" file="background_30993.xml" name="ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｸﾃ｢ﾃ” MREad" />
  28.     <background id="33349" file="background_33349.xml" name="ﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ’" />
  29.     <background id="35611" file="background_35611.xml" name="ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃｬﾂｸﾃ｢ﾃ”" />
  30.     <background id="36594" file="background_36594.xml" name="ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" />
  31.     <background id="39384" file="background_39384.xml" name="ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ" />
  32.     <background id="40580" file="background_40580.xml" name="ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃ･fﾃｩﾂｶﾃｮﾂｬ" />
  33.     <background id="41380" file="background_41380.xml" name="ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" />
  34.     <background id="43506" file="background_43506.xml" name="ﾃ丑ﾃ嘉､ﾃ叡ﾃ鋭ﾃ嘉ｬﾃ碓" />
  35.     <background id="51326" file="background_51326.xml" name="ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｫSﾃｯ竏づ･ﾃｼﾃｧﾄｱ" />
  36.     <background id="52768" file="background_52768.xml" name="ﾃ嘘ﾃ嘉ｬﾃ鋭ﾃ嘉姪…[ﾃ運ﾃｳXﾃｯﾃｷ" />
  37.     <background id="54754" file="background_54754.xml" name="ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫMREad" />
  38.     <background id="55482" file="background_55482.xml" name="ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ " />
  39.     <background id="62855" file="background_62855.xml" name="ﾃ嘉愿…[ﾃ蔚ﾃ…[ﾃ厭ﾃ丑ﾃ嘉ｧ" />
  40.     <card id="21348" file="card_21348.xml" marked="false" name=" ﾃ厭ﾃ丑ﾃ嘉ｧ " owner="2577" />
  41.     <card id="5187" file="card_5187.xml" marked="false" name=" ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " owner="2577" />
  42.     <card id="11494" file="card_11494.xml" marked="false" name="ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" owner="2577" />
  43.     <card id="53293" file="card_53293.xml" marked="false" name="ﾃ厭ﾃ…[ﾃ丑ﾃ瓜ﾃ叡ﾃ曳" owner="2577" />
  44.     <card id="21563" file="card_21563.xml" marked="false" name=" CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ‡窶ｦﾃ‡ﾂｬﾃ‡ﾂ｢ﾃ‡ﾆ’ " owner="62855" />
  45.     <card id="17150" file="card_17150.xml" marked="false" name="addin_  START" owner="62855" />
  46.     <card id="58567" file="card_58567.xml" marked="false" name="anonymous ftp" owner="62855" />
  47.     <card id="36844" file="card_36844.xml" marked="false" name="BILLﾃｬﾋ凖ｱﾃ ﾃｧﾃ｡ﾃ･v" owner="62855" />
  48.     <card id="24174" file="card_24174.xml" marked="false" name="foreign_ROAD7" owner="62855" />
  49.     <card id="62596" file="card_62596.xml" marked="false" name="ﾃ陰ﾃ丑ﾃ瓜ﾃ厩ﾃ窺ﾃ液ﾃ曳ﾃｩﾃ崚ｳﾃƒ" owner="62855" />
  50.     <card id="68532" file="card_68532.xml" marked="false" name="ﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃｫﾃｳﾃ｣窶｡" owner="62855" />
  51.     <card id="50880" file="card_50880.xml" marked="false" name="ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃｬoﾃｲ^ﾃ⑴ﾃｯﾅ禿ｧX" owner="62855" />
  52.     <card id="68962" file="card_68962.xml" marked="false" name="ﾃ｢ﾃ甘ｱﾂ ﾃｧsﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" owner="62855" />
  53.     <card id="37253" file="card_37253.xml" marked="false" name="ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｭﾃ姪ｪMﾃ｣ﾃｫﾃｮ竄ｬ 1. ﾃｬoﾃｲ^" owner="62855" />
  54.     <card id="44497" file="card_44497.xml" marked="false" name="ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｭﾃ姪ｪMﾃ｣ﾃｫﾃｮ竄ｬ 3. ﾃｧﾃ古ｨﾃｺ" owner="62855" />
  55.     <card id="6182" file="card_6182.xml" marked="false" name="Untitled_1" owner="35611" />
  56.     <card id="67646" file="card_67646.xml" marked="false" name="Untitled_1" owner="8366" />
  57.     <card id="68697" file="card_68697.xml" marked="false" name="  BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ  " owner="40580" />
  58.     <card id="59093" file="card_59093.xml" marked="false" name="  BUL ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺ  " owner="40580" />
  59.     <card id="9345" file="card_9345.xml" marked="false" name="Untitled_1" owner="40580" />
  60.     <card id="34536" file="card_34536.xml" marked="false" name="Untitled_1" owner="18336" />
  61.     <card id="43890" file="card_43890.xml" marked="false" name="Untitled_1" owner="54754" />
  62.     <card id="32588" file="card_32588.xml" marked="false" name=" ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " owner="36594" />
  63.     <card id="39807" file="card_39807.xml" marked="false" name="Untitled_1" owner="36594" />
  64.     <card id="56595" file="card_56595.xml" marked="false" name=" WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ ﾃ催ｳﾃｳ " owner="51326" />
  65.     <card id="29786" file="card_29786.xml" marked="false" name=" WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｬﾂｸﾃｳﾃ• " owner="51326" />
  66.     <card id="29584" file="card_29584.xml" marked="false" name="Untitled_1" owner="51326" />
  67.     <card id="5625" file="card_5625.xml" marked="false" name="Untitled_1" owner="55482" />
  68.     <card id="21212" file="card_21212.xml" marked="false" name="Untitled_1" owner="14054" />
  69.     <card id="27556" file="card_27556.xml" marked="false" name="Untitled_1" owner="8939" />
  70.     <card id="9022" file="card_9022.xml" marked="false" name="Untitled_1" owner="4249" />
  71.     <card id="44972" file="card_44972.xml" marked="false" name="Untitled_1" owner="19320" />
  72.     <card id="10001" file="card_10001.xml" marked="false" name="Untitled_1" owner="3798" />
  73.     <card id="9842" file="card_9842.xml" marked="false" name=" ﾃｩﾃ崚ｪMﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ " owner="39384" />
  74.     <card id="2504" file="card_2504.xml" marked="false" name="Untitled_1" owner="39384" />
  75.     <card id="52648" file="card_52648.xml" marked="false" name="Untitled_1" owner="52768" />
  76.     <card id="46243" file="card_46243.xml" marked="false" name="Untitled_1" owner="30993" />
  77.     <card id="45745" file="card_45745.xml" marked="false" name="Untitled_1" owner="43506" />
  78.     <card id="8508" file="card_8508.xml" marked="false" name="  BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ  " owner="41380" />
  79.     <card id="12594" file="card_12594.xml" marked="false" name="  BBS ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺ  " owner="41380" />
  80.     <card id="45376" file="card_45376.xml" marked="false" name="Untitled_1" owner="41380" />
  81.     <card id="4905" file="card_4905.xml" marked="false" name=" 1. ﾃｫSﾃｧﾃｫﾃ‡ﾃεｬVﾃ｣C" owner="33349" />
  82.     <card id="11143" file="card_11143.xml" marked="false" name=" 2. ﾃ栄ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉･ﾃ姥ﾃ嘉嘉…[ﾃｬVﾃ｣C" owner="33349" />
  83.     <card id="11775" file="card_11775.xml" marked="false" name=" 3. ﾃ唄ﾃ嘉｣ﾃ液ﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ’" owner="33349" />
  84.     <card id="12136" file="card_12136.xml" marked="false" name=" 4. ﾃ､Cﾃｭïｬﾃ‡ﾃ凝⑥ﾃ厭ﾃ嘉､ﾃ嘉ｬﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ’" owner="33349" />
  85.     <card id="14650" file="card_14650.xml" marked="false" name=" 5. ﾃ欝ﾃ…[ﾃ液ﾃ…ﾃｯﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ’" owner="33349" />
  86.     <card id="14886" file="card_14886.xml" marked="false" name=" 6. ﾃｪﾂ｢ﾃ､Eﾃ‡ﾃεｬsﾃｩsﾃｳ¥ﾃｯﾃ’" owner="33349" />
  87.     <card id="15363" file="card_15363.xml" marked="false" name=" 7. ﾃｧﾂｰﾃｬﾋ凖‡ﾃεｩﾃ｡ﾃ､Oﾃｪﾂｸﾃｨﾃ禿ｯﾃ’" owner="33349" />
  88.     <card id="4497" file="card_4497.xml" marked="false" name=" 1. ﾃｧﾂｰﾃｨTﾃ‡ﾃε‡ﾂｮﾃｭmﾃ‡ﾃﾃ‡ﾏ\" owner="2050" />
  89.     <card id="15661" file="card_15661.xml" marked="false" name=" 2. ﾃｪﾃ甘ｨTﾃ‡窶ｹﾃ‡竕暗‡ﾃε‡ﾂｮﾃｭmﾃ‡ﾃﾃ‡ﾏ\" owner="2050" />
  90.     <card id="19774" file="card_19774.xml" marked="false" name=" 3. LIBﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" owner="2050" />
  91.     <card id="22065" file="card_22065.xml" marked="false" name=" 4. ﾃｳﾃｲﾃｳpﾃｳﾃｸﾃ｣窶｡ﾃｨﾃ禿ｯﾃ津ｩﾃ甘ｬﾃｦ" owner="2050" />
  92.     <card id="23208" file="card_23208.xml" marked="false" name=" 5. MYFORUMﾃ⑥ﾃｫïｬﾃ｢ﾃ”" owner="2050" />
  93.     <card id="23637" file="card_23637.xml" marked="false" name=" 6. ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃｪ窶ｺﾃｭﾃ‹" owner="2050" />
  94.     <card id="24606" file="card_24606.xml" marked="false" name=" 7. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃｪ窶ｺﾃｭﾃ‹" owner="2050" />
  95.     <card id="25751" file="card_25751.xml" marked="false" name=" 8. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" owner="2050" />
  96.     <card id="26345" file="card_26345.xml" marked="false" name=" 9. ﾃ｢ﾃ氾 ﾄｱﾃ･ﾃｼﾃｧﾄｱ" owner="2050" />
  97.     <card id="26895" file="card_26895.xml" marked="false" name="10. ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑" owner="2050" />
  98.     <card id="28173" file="card_28173.xml" marked="false" name="11. ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪMﾃ⑴ﾃｧﾃ古ｨﾃｺ" owner="2050" />
  99.     <card id="59383" file="card_59383.xml" marked="false" name="12. ﾃｱﾂ｢ﾃｬﾂｫﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｩﾃ崚ｪM" owner="2050" />
  100.     <card id="28966" file="card_28966.xml" marked="false" name="13. ﾃｨTﾃ､ﾃ淌嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｨﾃ禿ｯﾃ’" owner="2050" />
  101.     <card id="30158" file="card_30158.xml" marked="false" name="ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ ﾃ⑿ﾃ㈲ﾃ⒀" owner="2050" />
  102.     <card id="22568" file="card_22568.xml" marked="false" name="ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  103.     <card id="55714" file="card_55714.xml" marked="false" name="ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  104.     <card id="32246" file="card_32246.xml" marked="false" name="ﾃ嘉ｧﾃ碓ﾃｩﾂｩﾃｬﾃ†ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  105.     <card id="40331" file="card_40331.xml" marked="false" name="ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  106.     <card id="36350" file="card_36350.xml" marked="false" name="ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ烏ﾃ嘉｢ﾃ…[ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  107.     <card id="37867" file="card_37867.xml" marked="false" name="ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  108.     <card id="51661" file="card_51661.xml" marked="false" name="ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  109.     <card id="13803" file="card_13803.xml" marked="false" name="ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" owner="9676" />
  110.     <card id="10418" file="card_10418.xml" marked="false" name="ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹" owner="9676" />
  111. </stack>
  112.